home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 September
/
1985-09.d64
/
falling sitar
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
386b
|
12 lines
5 print"[147]
10 [129]l[178]54272[164]54295:[151]l,0:[130]:[151]54296,15
20 [151]54277,4:[151]54278,12:[143] adsr
30 f2[178]150:q[178]50:[143] q is starting speed, decreased in line 80 to speed up
40 [129]z[178]1[164]50:[143] no. of cycles
45 f1[178][181](100[172][187](1))[170]10:[151]54276,23:[143]ember this waveform?
50 [129]t[178]1[164]q:[130]t
60 [151]54273,f1:[143] random freq
70 [151]54287,f2:[143] descending freq
80 [151]54276,20:q[178]q[171]1:f2[178]f2[171]3:[130]z:[151]54273,30:[143] 30 gives last tone only
90 [155]10[171]80